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Guida per l'input dei 
VIC 20 e C64 

Notate che i listati contengono 'paro¬ 
le' racchiuse tra parentesi graffe j /. 

Tali parole rappresentano caratteri di 
controllo come mostrato nel sotto¬ 
stante riquadro. Se sono precedute da 
un numero , questo indica il numero di 
volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato de¬ 
ve essere premuto contemporanea¬ 
mente a SHIFT mentre se è racchiuso 


programmi versioni 


to contemporaneamente a! tasto 
COMMODORE. Inoltre , se tra parente¬ 
si si trova un carattere alfabetico " soli¬ 
tarioquesto dovrà essere premuto 
contemporaneamente al tasto CON¬ 
TROL. 

Con questo sistema di codifica , sarà 
molto più agevole copiare i listati sen¬ 
za faticose e dubbie interpretazioni di 


da [()] 

deve 

essere premu- 

1 sore o 

dei colori. 



(CLP) 


c 

(CYN| 

khIJI Q 

k. 

l<7>| 

□ □ 

□ 

(HOME) 


0 

1 PUR | 

rm q 

m 

r<8>) 

□ □ 

■ ■ 

{su ) " 

rnn tin.i-.in 

n 

1 CRN } 

Rii n 

n 

(FI} 

(21 


{GIU *} 

dilli} 

H 

{BLU} 

I3U Q 

u 

□ 

{F2 } 



(SIN) 

[34 ^ E1 

II 

(YEL) 

G30 

ai 

[Fi] 

ttJ 

■ 

{DES ) 


□ 

[<1>1 

0O 

□ 

{F4} 

oa 

a 

iRVSl 

GUI □ 

E 

I < 2 > ) 

E3 O 

PS 

(F5} 

KS 

il 

IOFF ) 

E3 n 

■ 

[<3>] 

□ □ 

© 

( F6 } 


SI 

IBLK} 

m □ 

■ 

[<4>! 

□ □ 

0 

( F 7 } 

ES 

il 

1 WHT ) 

r?n q 

m 

l<5>] 

□ □ 

E 

ì F8 } 

KZD 

■ 

1 RED) 

m q 

& 

[ < 6> I 

□ □ 

■1 





Per ricevere gli arretrati di compilare il seguente tagliando: 

K 

I Compilare ed inviare in busta chiusa a: 

J.SOTt viale Restelli, 5 - 20124 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 
Indirizzo _ 


CAP 


Città 


Prov. 


Desidero ricevere i seguenti numeri arretrati di 


S d&'jjpi dedicato a. 


a L 2.000 cad. per un totale di L. 


Anno 

Anno_ 


a mezzo 


□ assegno allegato 

K 


□ contanti allegati 
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La corona di pietra (16K Ram) 

23 

Semaforo 

seconda parte 

oi E Ceppi 

di 1 Hamson tra e adatt-di S Aioare 



12 

Night duci (joystick) 

ci H Pierce trad e ada:: di F Sarcina 

26 

New York 

di K Eastern trad e adat: d P Matte 


CIÒ*- pius/4 


v Tombola 

1 9 eli A Colonna 

Supermind 

*U eli B Kerling trad e adatt di S Albarelli 
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Stop Bus 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di Stop Bug per il tuo computer 
Questo programma ti permette. 
Una volta caricato ed attivato con 
Run, di digitare i listati di Papersoft 
Commodore senza introdurre erro¬ 
ri di battitura. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola “ : rem " seguita da un nume¬ 
ro, detto checksum,- non copiare 
questa parte della linea, che serve 
solo per tua informazione. Quan¬ 
do Stop Bug è in funzione, infatti, 
tutte le volte che premi il tasto Re¬ 
turn dopo aver digitato una linea 
di programma, appare nell'angolo 
superiore sinistro dello schermo un 
numero, che deve coincidere con 
il checksum da noi pubblicato 
(sempre che tu non abbia usato 


comandi abbreviati, come ? per 
Print). 

Usando Stop Bug tieni conto del 
fatto che gli spazi non influiscono 
sui checksum, per cui fai particola¬ 
re attenzione alle istruzioni Pont 
dove sono spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
Stop Bug, soprattutto se sei abitua¬ 
to ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo Return su ogni linea 
Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che Stop Bug 
interferisca, al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare Stop Bug prima di 
ricaricare il tuo programma. 

Per disabilitare Stop Bug premi 
Run/Stop e Restore (su C64 e VIC 
20) oppure Run/Stop e Reset (su 
06 e Plus/4) Per riattivarlo batti- 

SYS PEEK(56)*256 per il VIC 20, 
SYS 16128 per il 06 e il PLUS/4. 
SYS 40704 per il C 64 
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STOP BUG per C64 e VIC 20 


100 POKE55,0 :POKE56,PEEK(56)-1 :R=PEEK(56)*256:PRINT"{CLR} 
ATTENDERE PREGO ..." 

110 FORI=RTOR+132 : READA:CK=CK+A: IFA= 9 99THENA=R/2 5 6 
120 POKEI,A :NEXT 

130 IFCK022689THENPRINT" {GIU 1 }ERRORE NELLE ISTRUZIONI DA 
TA": END 

140 SYS(R):PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIVAT 
O.": NEW 

200 DATAI 73,36,3,201 ,32,208,1 , 96,1 41 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,1 41 ,36,3,1 69,999,1 41 ,37,3 
2 30 DATAI 69,0,1 3 3,254,96,32,87,241 , 1 33 
24 0 DATA2 51 ,134,252,132,253,8,201, 13,240 
2 50 DATAI 7,201 ,32,240,5,24,101 ,254,133 
260 DATA254,1 6 5,251 ,166,252,164,253,40,96 
27 0 DATAI 69,1 3,32,21 0,255,1 65,21 4,1 41 ,2 51 
280 DATA3,206,251,3,169,0,133,216,169 

2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATAI 33,2 54,1 72,33,999,1 92,87,208,6 

3 20 DATA32,205,1 89,76,117,999,32,205,221 
3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251,3,133,214,76,55,999 


STOP BUG per CI6 e PLUS/4 

100 POKE5 5,0 :POKE56,63 :PRINT"{CLR}ATTENDERE PREGO..." 

110 FORI = 16128T01 6260 :READA:CK=CK+A:POKEI,A:NEXT 
120 IFCK< >1 4 24 8THENPRINT"{GIU' }ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS16128:PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

200 DATAI 7 3,34,3,201 ,32,208,1 ,96,141 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA3 2,1 41 ,34,3,1 69,63,1 41', 35,3 
2 30 DATAI 69,0,1 33,6,96,32,2 32,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 
2 50 DATAI 7,201 ,32,24 0,5,24,101 ,6,133 
260 DATA6,165,3,166,4,164,5,40,96 
2 70 DATAI 69,1 3,32,21 0,255,1 65,205,1 41 , 251 
280 DATA3,206,251,3,169,0,133,207,169 

2 90 DATAI 9,32,21 0,255,1 69,1 8,32,21 0,255 
300 DATAI 69,58,32,21 0,255,1 66,6,1 69,0 
310 DATAI 33,6,1 72,33,63,1 92,232,208,6 
320 DATA32,95,164,76,117,63,32,7,208 

3 30 DATAI 69,32,32,21 0,255,32,21 0,255,1 73 
340 DATA251 , 3,1 33,205,76,55,63 
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Nessuno è perfetto, ma..» 

In queste ultime settimane le lettere indirizzate alla nostra Redazione hanno 
subito un notevole aumento; ciò ci fa senz’altro piacere, in quanto significa 
indubbiamente che la nostra "rivistina" tascabile sta aumentando la cerchia dei 
suoi lettori. D'altra parte, però, ci è materialmente impossibile rispondere a 
tutte le lettere, e in particolare a coloro che ci scrivono segnalando presunti 
errori nei listati. A questo proposito vogliamo precisare che nei casi in cui 
abbiamo accertato l’effettiva presenza di errori, questi ultimi sono stati rilevati 
in appositi "errata corrige” pubblicati nei numeri successivi della rivista Per 
fortuna questi casi si sono verificati molto raramente, ed in genere erano dovuti 
ad inconvenienti in fase di composizione o di stampa, e non ad errori nella 
logica dei programmi: cogliamo infatti l’occasione per ribadire il fatto che il 
software pubblicato viene sempre accuratamente "testato” in Redazione prima 
della stampa dei listati. 

Ricordiamo perciò ancora una volta ai nostri lettori che ciò che essi digitano 
deve coincidere esattamente col listato pubblicato, poiché anche la differenza 
più insignificante può provocare il malfunzionamento del programma. Prendia¬ 
mo infatti un caso che si potrebbe definire emblematico: alcuni lettori che 
avevano digitato il gioco "Il Paracadutista" per C64, comparso sul n. 19, ci 
hanno scritto segnalando un errore di tipo "ILLEGAL QUANTITY" in una delle 
linee che vanno da 4200 alla fine del programma. Dopo aver verificato l'esat¬ 
tezza del listato, abbiamo provato a risalire alla possibile fonte dell'inconve¬ 
niente; abbiamo scoperto allora che, con ogni probabilità, tutto ciò era dovuto 
ad un errore di battitura commesso dai suddetti lettori nel copiare le istruzioni 
DATA che si trovano nella parte iniziale del listato. In particolare tale errore 
poteva essere (tipicamente!) l’aver scambiato la lettera O con lo zero. 

Per fortuna, comunque, adesso c’è STOP BUG, e siamo certi che casi come 
questo diverrano molto più rari; il nostro augurio sincero è che tutti i programmi 
che copierete da Papersoft funzionino sempre al primo colpo! 

Vogliamo inoltre approfittare di questo spazio per esortare i lettori ad inviarci 
i programmi che scrivono,- abbiamo già pubblicto molti lavori tra quelli che ci 
sono stati spediti e garantiamo in ogni caso una risposta a tutti coloro che ci 
faranno pervenire il loro software. 

Per concludere, diamo a tutti gli amici che usano il C64 con il registratore una 
notizia importante: nei prossimi due numeri troverete SCHEDARIO, un potente 
e versatile data-base che vi consentirà di memorizzare su cassetta archivi di 
ogni genere! 


La Redazione 
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La Corona di Pietra 

Seconda parte 



Ecco la seconda (ed ultima) parte 
del fantastico adventure same per 
VIC 20 di Papersoft Commodore. 
La prima puntata è stata pubblica¬ 
ta sul numero della settimana scor¬ 
sa; se ti manca corri in edicola a 
comprarlo e, se non lo trovi, spedi¬ 
sci il coupon di richiesta numeri ar¬ 
retrati. 

Nel caso invece tu abbia già digita¬ 
to e salvato la prima parte de "La 


Corona di Pietra " caricala in me¬ 
moria dopo aver attivato STOP 
BUG; puoi quindi iniziare a battere 
il listato di questa settimana 
Quando hai finito, salva il tutto: 
ora sei pronto per partire alla ricer¬ 
ca della Corona! Per le spiegazioni 
sul funzionamento del gioco ti ri¬ 
mandiamo all'artìcolo pubblicato 
sullo scorso numero. 


1 620 IFSE%=24ANDSE% (22) =- 1 OANDOD$ ( 2) = "TECA"THENPRINT"D,ENT 
RO C'E’LA CORONA":G0T0410 : rem 108 

1 630 IF(OD$(2)="TECA"ANDSE%<>24)OR(OD$(2)="TORRE"ANDSE%<> 
25)THENPRINT"QUALE M OD$(2)" ?":GOTO410 : rem 217 

1640 IFOD$(2)="CROCEFISSO"THENOD$(2)="CROCIFISSO" 

:rem 227 

1650 IFOD$(2)="CROCIFISSO"ANDSE%<>21THENPRINT"QUALE "OD$ ( 
2)"?": GOTO410 :rem 180 

1660 IFSE%<>210R0D$(2)<>"CROCIFISSO"THENPRINT"NON NOTO NU 
LLA DI SPECIALE":GOT0410 :rem 5 

1670 PRINT"IL BRACCIO DESTRO SI{ 2 SPAZI}PUÒ'RUOTARE!!":G 
OTO410 : rem 27 

1 680 IFSE%< >21OROD$(2)<>"BRACCIO"OROD$(3)="SINISTRO"THENP 
RINT"COSA???":GOTO780 :rem 81 

1 690 PRINT" IL BACCIO SI RUOTA E..IL MURO SI APRE ! ! ! " : E% = 2 
3 :BR% = 1 : GOTO410 :rem 77 

1 700 IFOD$(2)<>"MANOSCRITTO"THENPRINT"COSA???":GOT07 80 

: rem 151 

1710 IFSE%(10)0-1THENPRINT"QUALE MANOSCRITTO ?":GOTO410 

:rem 177 

1 720 PRINT"DICE: LA CORONA DI PI =ETRA E'NEL CASTELLO INCA 
NTATO.": GOTO410 :rem 65 

1 730 IFOD$(2)<>"PONTE"THENPRINT"COSA???":GOTO780: rem 205 
1 740 IFSE%<>3ANDSE%04ANDSE%<>2 8ANDSE%029THENPRINT"NON V 
EDO NESSUN PONTE QUI.":G0T0410 :rem 140 

1750 IFSE%=28THENPRINT"NON POSSO APRIRLO DAL=L'ESTERNO.": 

GOTO410 : rem 47 

1 76 0 IFSE% = 29THENPRINT"0.K.":E%=28:PL%=1:FORT=0TO750:NEXT 
T:GOTO90 : rem 54 

1 770 PRINT"NON ESSERE SCIOCCO 1!!":GOTO780 :rem 202 
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1780 IFOD$(2)="TOPO"OROD$(2)="TOPI"OROD$(2)="STREGA"OROD$ 
(2)="FANTASMA"THEN910 :rem 134 

1790 IFOD5(2)<>"CANE"THENPRINT"VUOI SCHERZARE,VERO ?":GOT 
0410 : rem 8 

1 800 IFSE% (7) 0-1THEN910 trem 62 

1810 PRINT"0.K."CHR$(13)"FUNZIONA!IL CANE SE NEVAI!!"tCA% 
= 2:N% = 1 8:SE% (21 ) =-l 0:GOTO41 0 treni 10 

1820 IFOD$(2)=”TOPI"OROD$(2)="TOPO"THENl920 itera 234 

1 8 30 IFSE% (4) 0-1 ANDSE% (6)0-1 ANDSE% (9) 0-1 THEN91 0 

:rem 31 


1840 IFOD$(2)="FANTASMA"THENPRINT"MA,SECONDO TE,COME FACC 
IO ???":G0T0410 :rem 122 

1850 IFOD$(2)="STREGA"THENPRINT"MI E'IMPOSSIBILE.":G0T041 


1 860 
1 870 

1 880 
1 890 

1 900 
1 91 0 
1 920 
1 930 
1 940 

1 950 

1 960 

1 970 

1980 

1 990 


0 : r em 8 6 
IFOD$(2)<>"CANE"THENPRINT"COSA????": GOTO780 : rem 161 
IFSE%(4)<>-lANDSE%(6)=-lANDSE%(9)<>-1THENPRINT"IL CO 
LTELLO NON SERVE A MOLTO."iGOTO410 irera 130 
IFSE%(9)=-lTHENPRINT"0.K.":GOTOl910 :rem 118 
IFSE%(4)=-1ANDSE%(8)=-1THENPRINT"BANG,BANGGG! !"iGOTO 


1910 itera 92 
PRINT"IL FUCILE E'SCARICO!!":G0T0410 irera 162 
NO$(21)="CANE MORTO"tCA%=2:N%=18 ! GOTO410 :rem 22 
IFSE%<>2lTHENPRINT"QUALI TOPI ?":G0T0410 :rem 244 
IFSE% (0) 0-1THEN91 0 :rem 59 
IFNO$(14)="TOPI MORTI"THENPRINT"MA SONO GIÀ'MORTI ! !" 
i G0T041 0 treni 182 
PRINT"0.K."iNO$(14)="TOPI MORTIN%=22iSE%(0)=21:NO% 
=NO%-1 : GOTO 41 0 treni 86 
IFSE%O260RSE% (24) <>26THENPRINT"TI AVEVO CONSIGLIATO 
{ 2 SPAZI }DI DESISTERE! !" tGOTO41 0 treni 206 
IFSE%(6)=-10RSE%(9)=-10RSE%(26)=-l THENPRINT"TRA LE C 
OSE CHE HO CI E'QUELLA GIUSTA"tG0T0410 trem 14 
PRINT"NON HO NULLA CON ME{ 3 SPAZI}CHE MI POSSA TRAR 
RE DAQUESTA SITUAZIONE. " : GOTO3050 treni 155 
CO% = 0 tIF0D$(2)="STREGA"THENPRINT"LA STREGA MI TRASFO 


RMAIN UN TOPO!!"tGOTO3050 trem 210 

2000 FORI = OTO2 7 tIFOD$(2)=LEFT$(NO$(I) ,LEN(OD$(2)))ANDSE%( 



I)=SE%THENC0%=1 

: rem 

1 80 

2010 

NEXT 

: rem 

2 

2020 

IFCO%=OTHENPRINT"COSA???":GOTO780 

: rem 

1 08 

2030 

IFOD$(2)="CANE”THENCA%=1:GOTO360 

: rem 

1 20 

2040 

IFOD$(2)= H FANTASMA”THENPRINT"NON ESSERE 

SCIOCCO! 

! ” : G 


0T0410 

: rem 

90 

2050 

IFOD$(2)="TOPO”OROD$(2)=”TOPI"THENPRINT 

"NON DIRE 

SCI 


OCCHEZZE!":G0T0410 

: rem 

93 

2060 

IFSE%< >180RB0 = 1OROD$(2)<>"BOTTE"THENPRINT"0.K."t 

GOTO 


41 0 

: rem 

1 72 

2070 

IFSE%OSE% (1 2) THENPRINT”QUALE BOTTE ?” : 

FORT=0TO750 t N 


EXTT: GOTO90 

: rem 

255 

2080 

PRINT"0.K."t PRINT"DIETRO LA BOTTE C'E'UNPASSAGGIO ! !" 


t BO = ltN% = l9t 

: rem 

1 42 
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2090 

21 00 

21 1 0 

2120 

21 30 

21 40 

2150 

2160 

21 70 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

231 0 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

241 0 

2420 

2430 

2440 


FORT= OTO1 500 :NEXTT:G0T090 :rem 
P0$ = "SONO IN UNA SPIAGGIA. A NORD C'E'IL MARE,A 
{ 2 SPAZI}SUD LA FORESTA,A EST{ 2 SPAZI}" :rem 
Pi $ = "IL CASTELLO,A OVEST LASPIAGGIA. : rem 
S% = 7:E% = 1:O% = 0:RETURN : rem 
P0$ = "SONO NEL TUO CASTELLO.IL MARE E'A NORD,LA 


1 33 

1 08 
1 78 
248 
FORES 

TA A SUD,IL PROMON= : rem 209 

Pi $ = "TORIO A EST E LA SPIAGGIA A OVEST. : rem 156 

S% = 8:E% = 2 :O% = 0:IFSE%(22)=-1THENPRINT"{CLR} " P0$; Pi $ ;P 
2$:GOTO3070 : rem 238 

RETURN : rem 169 

P0$ = "SONO SUL PROMONTORIO: IL MARE E'A NORD,LA FORES 
TA A SUD,IL PONTE{ 2 SPAZI}" : rem 159 

Pl$=PO$+" E' A EST E IL CASTELLO A OVEST. : rem 135 

S%=9:E%=3:0%=1:RETURN :rem 4 

P0$ = "SONO AD OVEST DEL PON = TE "+PO$+" .IL MA = RE E'A 
NORD, LA FORESTA : rem 221 . 

P1 $ = "E'A SUD,IL PROMONTORIOE'A OVEST. : rem 247 

S%=10:O%=2:IFCR%=0ORTR%=1THENE%=4 :rem 205 

RETURN : rem 167 

P0$ = "SONO SUL LATO EST DEL PONTE "+PO$+":A NORD C'E' 
IL MARE,A{ 2 SPAZI}" :rem 159 

Pi $ = "SUD UN CREPACCIO,A EST LA BAIA. : rem 6 

IFCR%=0THENP2$=CHR$(13)+"IL PONTE CROLLA DIETRODI ME 
i 1 1 M :CR% = 1 :PO$ = "{ 2 SPAZI}CROLLATO " :rem 24 

E%=5:IFTR%=1THENO%=3 :rem 188 

RETURN : rem 172 

P0$ = "SONO IN UNA BAIA. A{ 3 SPAZI}NORD C'E'UN BRACCI 

:rem 103 
SPIAGGIA 
:rem 33 
:rem 43 
:rem 46 
E'A NORD, 

:r em 2 52 
:rem 22 
:rem 51 
NORD,LA 

: rem 106 
:rem 39 
NORD,LA 

: rem 134 
:rem 44 
E*A NORD, LA 
: rem 144 
:rem 80 


O DIMARE ED OLTRE LA SPIAG 

Pi$ = "GIA DI UN'ISOLA.LA FO=RESTA E'A SUD,LA 
AD EST ED IL PONTE 
P2$="CROLLATO A OVEST. 

S%=11:E%=6:0%=4:RETURN 

P0$ = "SONO SULLA SPIAGGIA.{ 2 SPAZI}IL MARE 
LA FORESTA A SUD,LA SPIAG = 

Pl$="GIA E'A EST E LA BAIA A OVEST. 

S%=12:E%=6:0%=5:RETURN 

P0$ = "SONO NELLA FORESTA.LA SPIAGGIA E'A 
{ 2 SPAZI}FORESTA A SUD,OVEST , EST. 
N%=0:S%=7:E%=8:0%=7:RETURN 

P0$ = "SONO NELLA FORESTA.IL CASTELLO E'A 
{ 2 SPAZI}FORESTA A SUD,OVEST , EST. 

N%=1:S%=8:E%=9:0%=7:RETURN 
P0$ = "SONO NELLA FORESTA.IL PROMONTORIO 
FORESTA A SUD,EST, OVEST. 

N%=2:S%=9:E%=10:0%=8:RETURN 
P0$="SONO NELLA FORESTA.IL PONTE "+PO$+" E'A NORD,LA 
FORESTA E'A{ 3 SPAZI}" :rem 172 

P1 $ = "SUD ED OVEST,IL CREPACCIO E'A EST. : rem 228 
N%=3:S%=10:O%=9:RETURN :rem 59 
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2450 

2460 

2470 

2480 

2490 

2500 

251 0 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 


2650 

2660 

2670 

2680 

2690 

2700 
271 0 
2720 


PO$="SONO NELLA FORESTA.LA BAIA E 1 A NORD,LA 
E'A SUD E A EST, IL 
Pl$="CREPACCIO E'A OVEST. 

N% = 5 :S% = 11:E%=12:RETURN 

PO$ = "SONO NELLA FORESTA.LASPIAGGIA E ' A 
TA A SUD,EST,OVEST.{SIN} 

N% = 6:S%=12:E% = 12:0%=11 : RETURN 


FORESTA 
:r era 206 
: rem 197 
:rem 97 
NORD,LA FORES 
: rem 1 0 
rem 178 


PO$="SONO SULLA SPIAGGIA{ 3 SPAZI}DELL'ISOLA.LA FORE 


STA E'A NORD,IL MARE A SUD 
Pi $ = "E A EST, C ' E'UN CUNICO = LO 
MARE,C 1 E 1 LA BAIA. 

N%=16:0%=14:RETURN 
P0$ = "SONO IN UN CUNICOLO.A NORD 
LA SPIAGGIA,E AD{ 2 SPAZI}" 

P1 $ = "OVEST UN'ALTRO CUNICO = LO. 
N%=17:E%=13:0%=15:RETURN 
P0$ = "SONO IN UN CUNICOLO.A NORD 
UN'ALTRO CUNICOLO. 

N% = 18 :E% = 14 : IFCA%<>2THENN%=-1 
RETURN 

P0$ = "SONO IN UNA FORESTA.A NORD 


:rem 81 
A OVEST.A SUD,OLTREIL 

:rem 223 
:rem 74 
C'E'UNA GROTTA,A EST 

:rem 18 
: rem 1 1 5 
: rem 148 
C'E'UNA CAVERNA,AEST 


{ 3 SPAZI}PRATO,A SUD UNA SPIAG=GIA. 
2600 N%=26:S%=13:E%=25:RETURN 
2610 P0$ = "SONO IN UNA GROTTA.LA 
2620 S% = 14 : RETURN 

2630 P0$ = "SONO IN UN CUNICOLO.LAUSCITA E 
FBO=0THENRETURN 

2640 P0$ = "SONO IN UN CUNICOLO.CISONO DUE 
{ 3 SPAZI}NORD E A SUD. 

N% = 19 :S% = 15:RETURN 


: rem 
: rem 
: rem 

E A EST C'E'UN 

: rem 
: rem 

USCITA E'A SUD. :rem 

: rem 


48 
1 36 
1 75 


1 61 
149 
1 62 
254 

SUD."s S%-15:1 
59 


: rem 

CUNICOLI A 
: rem 
: rem 


PO$="SONO IN UN CUNICOLOiA SUD 
ST LA CANTINA DEL{ 2 SPAZI}" 

Pi$="CASTELLO INCANTATO. 

S%=18 :0% = 20 : RETURN 


C'E'UN CUNICOLO,A 

: rem 
: rem 
: rem 


PO$="SONO NELLA CANTINA DELCASTELLO INCANTATO.A 
{ 2 SPAZI}NORD C'E'UN CORRIDOIO, :rem 

Pi$="A EST UN CUNICOLO. :rem 

N%=21:E%=19:RETURN :rem 

P0$ = "SONO IN UN CORRIDOIO. C'E'UNA CANTINA A SUD 
NA STANZA A NORD :rem 


229 

86 

OVE 

98 

249 

35 

59 
39 
66 
E U 
114 


2730 Pl$=".{ 2 SPAZI}SUL MURO EST C'E'FISSATO UN CROCIFIS 


2740 

2750 

2760 

2770 

2780 

2790 

2800 


so. 


: rem 

21 3 

S%=20:IFNO$ (14) = 

"TOPI MORTI"THENN%=22 

: rem 

1 75 

IFBR%=1THENPl$ = " 

E A EST.":E%=23 

: rem 

191 

RETURN 


: rem 

1 75 

PO$="SONO IN UNA 

STANZA CONUNA PORTA CHIUSA 

. L ' U 

= SCI 

TA E'A SUD. 


: rem 

21 1 

S% = 21: RETURN 


: rem 

3 

PO$="SONO IN UNA 

STANZA.LA USCITA E' A OVEST 

• 


{ 5 SPAZI}A NORD 

C 1 E'UNO SCIVOLO 

: rem 

1 71 

Pi$="MA E'BLOCCATO DA UN{ 3 SPAZI}FANTASMA 

INCATENAT 
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281 0 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 
3090 
31 00 
31 1 0 
31 20 


31 30 
31 40 


0. 

IFSE%(25)=-l0THENN% = 24 : Pi$ = "CHE PORTA 


STANZA DEL=LA CORONA.A EST 


PRATO.A{ 
CACCIA- 
SUD C ' E ' LA{ 


0% = 21 : RETURN 
P0$ = "SONO NELLA 
ERI A. 

E% = 30 : RETURN 
PO$="SONO IN UN 
EN=ZA PORTE,DEL 
Pi$="STREGHE;A 
0% = 16 : RETURN 

P0$ = "SONO IN UN PRATO.{ 3 
A,A SUD LA FORESTA. 

Pl$="{ 7 SPAZI}SONO CADUTO 
DI CORDA!! 

IFSE%(24)<>26THENPl$ = "":N%=28 
RETURN 

P0$ = " SONO SULLA TORRE DEL{ 2 
SUD{ 2 SPAZlJC'E'UN PRATO. 

Gl% = 2 5 : RETURN 


: rem 150 
SOTTO. 

: rem 58 
:r em 2 50 
C'E'LAARM 
: rem 154 
:rem 242 

4 SPAZI}NORD C'E'LA TORRE,S 

: rem 152 
2 SPAZIJFORESTA.: rem 243 

: rem 3 

SPAZI}A NORD C'E'UNA RADUR 

:rem 23 

UNA{ 4 SPAZI}TRAPPOLA 

:rem 236 
S% = 16 : rem 175 

: rem 172 
SPAZI}CACCIA-STREGHE.A 

:r em 7 6 
:rem 65 


IN 


P0$ = n SONO IN UNA RADURA. ILPRATO E'A SUD,IL CA = STE 
LLO INCANTATO A OVE : rem 78 

Pi$ = "ST: IL PONTE LEVATOIO{ 2 SPAZI}EP2$="CHIUSO. 

:rem 249 
rem 18 
rem 9 
INCANTAT 
rem 200 
rem 134 
:rem 249 
:rem 241 

DI POLVERE DA SPARO;A 

: rem 201 
rem 137 
:rem 82 
SPAZI}DI NON CIMENTART 
I IN{ 2 SPAZIJQUESTA IMPRESA;BEN TI STA!! : rem ' 139 
GOTO3080 : rem 205 

PRINT"{GIU' }{RVS}BRAVISS IMO ! ! ! {OFF}HAI RECU = PERATO L 
A CORONA ED IL TRONO!! :rem 218 

PRINT”{GIU'}{ 3 SPAZI}{RVS}RIGIOCHI [S/N] ?:rem 178 

GETA$:IFA$< >”S”ANDA$< >”N"THEN3090 :rem 143 

PRINT:IFA$="S"THENRUN :rem 119 

END:END:END:END:END :rem 224 

PRINT"{CLR}{ 8 SPAZI}{RVS}[<*>]£[<*>]£[<*>]£":PRINT" 
{ 8 SPAZI} [<*>] {RVS}{ 4 SPAZI}{OFF}£":PRINT"{RVS} LA 
{ 2 SPAZI}CORONA DI PIETRA " : rem 201 

PRINT"{GIU'}IL TUO INFIDO CONSIGLIERE TI HA SOTTRATT 
O LACORONA DI PIETRA ED IL :rem 186 

PRINT"{SUjTRONO.PER RIOTTENERLO DEVI RITROVARE LA CO 
RONA.PARTI DAL TUO CA = :rem 115 


IFPL%=1THENO%=29:P2$="APERTO. 

S% = 26: RETURN 

P0$ = "SONO NEL CORTILE DEL{ 2 SPAZI}CASTELLO 
O.LA ARMERIA E’A NORD,A EST 
Pl$="C'E'IL PONTE LEVATOIO ":P2$="CHIUSO. 
IFPL% = 1THENE% = 28 :P2$ = "APERTO. 

N%=30:RETURN 

PO$="SONO NELL'ARMERIA PIE=NA 
SUD C'E'IL CORTILE, 

Pi $ = "A OVEST LA STANZA DEL=LA CORONA. 
S%=29:0%=24:RETURN 
PRINT"TI AVEVO CONSIGLIATO{ 2 

IMPRESA;BEN TI STA!! 
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3150 n PRINT"STELLO ALLA SUA RICER=CA,TENENDO PRESENTE 

{ 3 SPAZI}CHE DOVRAI RITORNARVI :rem 200 

3160 PRINT"SALVO E CON LA CORONA!IO SARO * PER TE OCCHI EOR 
ECCHIE,VEDI DI NON :rem 192 

3170 PRINT"FARMI MORIREPRINT"SE IO FOSSI IN TE RI =NUN 

CEREI ! ! : rem 71 

3180 FORI=0TO27:READAR$( I ) ,NO$( I ) ,SE%(I):NEXT :rem 159 

319 0 DATADEL,VELENO, 19,UN,REMO,7,UN,REMO,2,UNA,BARCA,5 r UN 
/FUCILE,25 :rem 160 

3200 DATAUNA/TORCIA,16,UN/COLTELLO,11,UN,OSSO,17,DELLE,MU 


3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 


NIZIONI,14 : rem 15 
DATAUNA,SCURE,12,UN,MANOSCRITTO,18,UN,TESCHIO,18,UNA 
,BOTTE,18 :rem 210 
DATAUNA,CHIAVE,18,DEI,TOPI,21 ,DELL' ,AGLIO,2 7,UNA,SCA 
LA,14,UNA,BOTTIGLIA,0 :rem 52 
DATADELLE,CAROTE,27,DELLE,MELE,27,DELLE,PERE,2 7,UN,C 
ANE,15 : rem 96 
DATALA,CORONA DI PIETRA,-10,UNA,TECA DI CRISTALLO,24 
,UNA,TRAPPOLA,26 : rem 194 


DATAUN,FANTASMA INCATENATO,23,UN/TRONCHESE, 1 3,UN,TRO 
NCO,-10 :rem 53 

PRINT"{GIU'}{ 4 SPAZI}{RVSjPREMI UN TASTO :rem 72 

GETA$:IFA$=""THEN3270 :rem 187 

PO$ = "PERICOLANTE": RETURN :rem 97 

PRINT"NON VEDO NIENTE : E 1 PERICOLOSO MUOVERSI ALLA 
{ 2 SPAZI}CIECA!":T0%=T0%-1 :rem 81 

IFT0%<-1THENPRINT"SONO CADUTO E MI SONO ROTTO LA TES 
TA! !" : GOTO30 50 :rem 212 

P0$ = "":P! $ = "":p2$ = "" :rem 173 

GOTO320 : rem 150 


Night Duci 



Fai parte di una squadriglia da cac¬ 
cia e stai compiendo una missione 
notturna nel cielo nemico,- in segui¬ 
to a un'imboscata ti trovi isolato e 
perdi il contatto visivo coi tuoi 
compagni. Ora devi ca verte la da 
solo! Gli aerei nemici si dirigono 
verso di te ad uno ad uno, e tu 
devi abbatterli prima che arrivino 
abbastanza vicini da colpirti a loro 


volta. Puoi vedere sullo shermo il 
caccia nemico che si avvicina zi¬ 
gzagando e, al centro, il mirino del 
tuo dispositivo lanciamissili. Usa il 
joystick per modificare la tua rotta 
centrando il bersaglio, e il pulsante 
per far fuoco,- tieni presente che 
ciò che muovi non è il mirino (il 
quale resta sempre al centro dello 
scherno) ma bensì l'intera immagi- 
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ne visualizzata. Appena abbatti 
un aereo, ne compare subito un 
altro che si avvicina più rapida¬ 


mente del precedente. La partita 
termina se vieni colpito. 


11 o 
11 5 
1 20 

1 30 
1 35 
1 40 
1 50 
1 60 
1 65 
1 70 
175 

1 80 


1 85 


1 90 


PRINT"{ 
PRINT"{ 
PRINT"{ 

PRINT"{ 
PRINT"{ 
PRINT" 


10 REM NIGHT DUEL : rem 233 

100 POKE36879,8:PRINT"{CLR}{WHT}{RVS}{ 2 SPAZI}* 

{ 2 SPAZI}NIGHT{ 3 SPAZl}DUEL{ 2 SPAZI}*} 2 SPAZI}" 

:rem 226 

105 PRINT"{ 3 GIU'}{ 3 SPAZI}ABBATTI{ 2 SPAZI}L'AEREO" 

: rem 112 

3 SPAZI}NEMICO PRIMA CHE" :rem 103 

4 SPAZI}TI RAGGIUNGA!!" :rem 220 

3 GIU'}{ 3 SPAZI}USA{ 2 SPAZI}IL JOYSTICK" 

:rem 133 

5 SPAZI}PER CENTRARE" :rem 160 

3 SPAZI}L’OBIETTIVO{ 2 SPAZI}NEL" : rem 113 

MIRINO E PER SPARARE" :rem 110 

PRINT"{ 3 GIU'}{RVS} PULSANTE PER GIOCARE " :rem 249 

GOSUB450:IFFI=0THEN160 :rem 59 

1=1:US=7680:UC=38400:POKE36879,8 :rem 51 

DIMC(11):DIMD${9) :rem 110 

D$ (9) =" ." :D$ (8) ="-" :D$ (7) =" [<E>] " :D$ (6) =" [<@>] L" :D$ (5 
)="{SIN}*0*{SU}{ 2 SIN}[<R>]" : rem 31 

D$(4)="{SIN}* ()*{SU}{ 3 SIN} [<T>]0":D$(3)="{ 3 SIN} 

{ 2 M (0) { 2 *}TSU}{ 5 SIN}U[<£>U {SU} { 3 SIN}*[<R>] 

:rem 239 

D$ ( 2 ) = " { 5 SIN} { 4 M(<>){ 4 * } {SU} { 8 SIN}N[< 2 +>] 
M{SU}{ 2 SIN}[<G>]{SU}{ 3 SINT[< 4 0>]" :rem 2 

D$(l)="{ 9 SIN}[< 4 P>][< 2 0>][< 2 I>](<>)[< 2 I>] 

[< 2 0>] [< 4 P>] {SU} { 12 SIN}N[< 2 +>]M{SU}{ 2 SIN} 


[<H>] {SU}{ 3 SIN}[< 4 @>] 
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rem 132 


1 95 

D$ (0)=" { 9 SIN}{ 20 SPAZI}{SU}{ 

1 4 

SIN}{ 6 SPAZI}{SU} 


{ 4 SIN}{ 4 SPAZI}{SU}{ 5 SIN}{ 

7 

SPAZI}" : rem 

92 

200 

EX$="{ 10 DES}[< 3 +>]{GIU'}{ 4 

SIN}[< 5 +>]{ 9 ; 

SIN} 


[< 8 +>]{GIU'}{ 4 SIN}[< 5 +>]{GIU 

’ } { 4 SIN}[< 2 

+ >] 
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: rem 

244 

205 

FORX=lT08:READR(X):NEXT 


: rem 

233 

210 

FORX=1TOl1 :READC(X) :NEXT 


: rem 

0 

215 

PRINT"{CLR}{WHT}" 


: rem 

1 

220 

X=6:Y=10 :Q=Y:P=X:K=80:GOSUB3 0 5 


: rem 

76 

225 

W=X:Z=Y:K=K-I*.2 :IFK=<0THEN420 


: rem 

62 

230 

GOSUB450:IFJY=156ANDFI=0THEN300 


: rem 

1 32 

235 

IFFI = 1THEN34 5 


: rem 

241 

240 

IFINT(RND(1)*20+1)<ITHEN300 


: rem 

246 

245 

IFJY=140THENW=X+1:GOTO290 


: rem 

36 

250 

IFJY=28THENW=X-1:GOTO290 


: rem 

247 

255 

IFJY=152THENZ=Y+1:GOTO290 


: rem 

44 

260 

IFJY=148THENZ=Y-1 :GOTO290 


: rem 

47 

265 

IFJY=136THENW=X+1:Z=Y+1:GOTO290 


: rem 

1 77 
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270 

275 

280 

285 

290 

295 

300 

305 

31 0 

31 5 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 

380 

385 

390 

395 

400 

405 

41 0 

41 5 

420 

425 

430 

435 

440 

445 

450 

455 

460 


IFJY=132THENW=X+1:Z = Y-1:GOTO290 

: rem 

1 71 

IFJY=24THENW=X-1:Z=Y+1:GOTO290 

: rem 

1 28 

IFJY=20THENW=X-1 :Z=Y-1:GOTO290 

: rem 

1 22 

GOTO230 

: rem 

1 09 

IFW< 50RW>150RZ< 30RZ> 21THENW=X:Z = Y:GOTO300 

: rem 

223 

X=W:Y=Z:GOSUB305:GOTO225 

: rem 

20 

GOSUB325:JY=R(INT(RND(1)*8+1)):G0T0245 

: rem 

21 6 

POKE781,Q:POKE782,P:SYS58636 

: rem 

1 75 

PRINTD$(0) 

: rem 

1 0 

POKE781,Y:POKE782,X : SYS 58 63 6 

: rem 

1 92 

PRINTD$(INT(K/l0)+1) :P=X:Q=Y: RETURN 

: rem 

1 68 

POKEUC+209,3 :POKEUC+251,3 :POKEUC + 254,3 :POKEUC + 297 

,3 


: rem 

252 

POKEUS + 209,1 01 :POKEUS + 2 51 ,64 :POKEUS+254,64 

: POKEUS+297 

,101 : RETURN 

: rem 

1 26 

DATAI 40,28,1 52,1 48,1 36,1 32,24,20 

: rem 

21 

DATAI 02,1 02,102,90,90,90,90,46,46,46,46 

: rem 

1 1 0 

S=8142:E=8163:R=38862:D=38883 

: rem 

38 

GOSUB32 5 :POKE36 8 7 8,1 5 

: rem 

1 89 

FORF=1TOl1 

: rem 

61 

POKES + 21,32 :POKEE+23,3 2 

: rem 

9 

POKES,C(F):POKEE,C(F) 

: rem 

218 

POKER,2 :POKED,2 

: rem 

1 32 

S=S-21 :E=E-23 :R=R-21:D=D-23 

: rem 

225 

POKE36875,255-INT(11*F) :NEXT:POKE36875,0 :POKE36878,0 

IFX>8ANDX<12ANDY>9ANDY<13THEN395 

: rem 

250 

: rem 

6 

PRINT"{CLR}":GOSUB305:GOTO300 

: rem 

88 

PRINT"{CLR}":POKE36879,42 :GOSUB415:POKE36878,1 5:FORQ = 

1TO80:NEXT:POKE36879,8 

: rem 

1 78 

FORT=2 55TOl2 8STEP-1 :POKE36877 ,T:NEXT 

: rem 

241 

POKE36877,0:POKE36878,0 

: rem 

8 

1 = 1 + 1 : GOTO215 

: rem 

203 

PRINT"{ 9 GIU'}"EX$:RETURN 

: rem 

223 

FORQ=lT05:POKE36 879,25 :FORA=lTO30:NEXT:POKE36 879, 

4 2 : F 

ORA=lTO20:NEXT:NEXT 

: rem 

67 

PRINT"{CLR}{ 3 GIU'}{ 6 DES}SEI MORTO!!{ 3 

GIU'}" 

: PRI 

NTI-1;"NEMICI ABBATTUTI{ 3 GIU'}" 

: rem 

60 

FORQ = 1TO10 :GETA$:NEXT 

: rem 

57 

INPUT"PROVI ANCORA (S/N)";H$ 

: rem 

1 24 

IFH$="S"THENRUN 

: rem 

1 39 

PRINT"{CLR}": END 

: rem 

18 

FI=0:JY=PEEK(37151):IF(JYAND32)=0THENFI=1 

: rem 

1 80 

JY=JYAND2 8:POKE371 54,1 27 :PP = PEEK(371 52)AND!28 :POKE371 

54,255 

: rem 

1 95 

JY=JY+PP:RETURN 

: rem 

2 
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CI6--pius/q. 


Tombola 


Ecco uno dei più vecchi passatem- 
po deI mondo in versione compu¬ 
terizzata. Il 06 sostituisce colui 
che normalmente prende in mano 
le redini del gioco estraendo i nu¬ 
meri e chiamandoli ad alta voce. Il 
programma ha memorizzate 24 
cartelle , per cui i giocatori possono 
essere al massimo 24. All'inizio si 
deve introdurre il numero e i nomi 
dei concorrenti,- viene poi chiesto 
ad ognuno quante quante cartelle 
desidera (fino a 3) e quali. Ogni 
cartella ha infatti un "numero di 
matricola", e quelle disponibili so¬ 
no contrassegnate dalle matricole 
25-36 e 61-72. Chi volesse "perso¬ 
nalizzare" il gioco può modificare 
le linee 1002-1048, ognuna delle 
quali contiene un’istruzione DATA 
relativa ad una cartella: il primo da¬ 
to è la matricola della cartella, se¬ 
guono i 5 numeri della prima riga, 
i 5 della seconda e i 5 della terza. 
In seguito bisogna comunicare al 


computer la puntata (in lire) per 
una singola cartella, in modo che 
possa venire visualizzato l'importo 
che ogni giocatore deve pagare 
prima dell'inizio del gioco. È ne¬ 
cessario infine specificare se i pre¬ 
mi devono partire dall'ambo, dal 
terno, ecc. dopo di che inizia 
l’estrazione dei numeri. Il program¬ 
ma provvede a controllare ogni 
volta tutte le cartelle e segnala 
eventuali vincite, visualizzando il 
nome del concorrente e la matrico¬ 
la della cartella. In questo caso il 
gioco si ferma e viene emesso un 
segnale acustico; per proseguire 
premere "C". L'estrazione può es¬ 
sere in qualsiasi momento sospesa 
usando il tasto "S“ e fatta riprende¬ 
re con "C". Premendo quest'ultimo 
tasto dopo che è stata segnalata la 
tombola, viene infine mostrata la 
spartizione del "montepremi" tra i 
vari giocatori. 


0 REM **************************** ;rem 1 7 2 

2 REM * TOMBOLA PER C16 - PLUS/4 * :rem 221 

4 REM * DI * :rem 249 

6 REM * ANTONIO COLONNA * :rem 144 

10 REM**************************** ;rem 221 

11 COLORO,3+0,4:COLOR4,3+0,4 :rem 50 

12 PRINT"{CLR}{WHT}ATTENDERE.PREGO !" : rem 236 

14 REM (INIZIALIZZAZIONE VARIABILI) ;rem 0 

16 CLR :rem 72 

18 DIMNR(384) ,CA(72) ,NC(90) ,N$(24) ,V$(99) ,Fi (24) ,OC% (72) 

: rem 10 5 

19 VOL8:Y=5 :rem 152 

20 H$(2)="AMBO{ 4 SPAZI}":H$(3)="TERNA{ 3 SPAZI}":H$(4)=" 

QUATERNA":H$(5)="CINQUINA" :rem 40 
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22 

H$(6)="TOMBOLA " 


: rem 

230 

24 

FORI = 1T03 8 4 :READNR(I) : NEXT 


: rem 

79 

26 

S$="{HOME}{ 23 GIU'}" 


: rem 

250 

28 

REM (IMMISSIONE DATI) 


: rem 

1 90 

30 

GOSUB256 


: rem 

1 28 

32 

INPUT"{HOME}{ 12 GIU'}{ 3 SPAZl}- 

NUMERO GIOCATORI 

IN 


GARA ";G 


: rem 

240 

34 

IFG<1ORG>24THEN32 


: rem 

202 

36 

FORI=lTOG:PRINT"{HOME}{ 17 GIU'}{ 

3 SPAZI}- NOME GIOCA 


TORE "; 


: rem 

1 00 

38 

PRINT"{ 15 SPAZI}{ 15 SIN}"IINPUTN$(I):NEXT 

rem 

66 

40 

FORI=lTOG 


: rem 

236 

42 

GOSUB256:PRINT"{HOME}{ 9 GIU’}{ 3 

SPAZI}- ABBINAMENTO 


GIOCATORI{ 2 SPAZI}CARTELLE" 


: rem 

1 1 6 

44 

F= 0 


: rem 

27 

46 

PRINT"{ 2 GIU’} - QUANTE CARTELLE 

VUOI, "N$(I)" ”? 

: INP 


UTF 


: rem 

1 74 

48 

IFF<1ORF> 3THEN42 


: rem 

1 55 

50 

TC=TC+F:IFTC>24THEN92 


: rem 

223 

52 

FORT=1TOF:F1(I)=F:V=V+1 


: rem 

70 

54 

PRINT"{ 2 GIU'} "T"{SIN}) CARTELLA NUMERO 

INPUTCA(V 


) 


: rem 

8 

55 

IFCA(V)>0ANDCA(V)<73THENIFOC%(CA(V))=1THEN62 

: rem 

44 

56 

FORTI=1T0369STEP16 


: rem 

45 

58 

IFCA(V)=NR(Tl)THENV$(CA(V))="SV": 

OC%(CA(V))=- 

1 : Tl = 

369: 


NEXTTl: GOTO64 


: rem 

1 70 

60 

NEXTTl 


: rem 

42 

62 

CA(V)=0:V=V-1: GOTO42 


: rem 

90 

64 

NEXTT 


: rem 

253 

66 

IFF=1THENV=V+2: GOTO70 


: rem 

254 

68 

IFF=2THENV=V+1 


: rem 

38 

70 

FORI1=1T072:OC%(II)=ABS(OC%(II)): 

NEXTII :NEXTI 

: rem 

249 

72 

GOSUB256 


: rem 

1 34 

74 

PRINT"{HOME}{ 11 GIU 1 }{ 3 SPAZI}- 

PUNTATA PER 

OGNI 

CAR 


TELLA " 


: rem 

1 76 

76 

INPUT" { 2 GIU'H 5 SPAZI }LIRE ";Q 


: rem 

27 

78 

FORI=1TOG 


: rem 

247 

80 

PP=Fl(I)*Q 


: rem 

209 

82 

PT=PT+PP 


: rem 

1 86 

84 

PRINT"{HOME}{ 17 GIU'}{ 39 SPAZI} 

ii 

: rem 

113 

86 

PRINT" {HOME} { 17 GIU'H 3 SPAZI }- 

PUNTATA DI 

"N$ (I 

)" £ 


"PP 


: rem 

1 50 

88 

GOSUB284 


: rem 

1 42 

90 

NEXTI 


: rem 

241 

92 

GOSUB256 : PRINT" {HOME} { 9 GIU'H 3 

SPAZI}**** 




{ 2 SPAZIJSELEZIONE DI PARTENZA{ 

2 SPAZI}****" 





: rem 

47 

94 

F0RI=2T06 


: rem 

229 

96 

PRINT"{GIU'}{ 2 SPAZI}"I"{SIN}) = 

"H$ (I) 

: rem 

231 

98 

NEXTI 


: rem 

249 


16 



1 00 

PRINT" { 2 GIU'H 3 SPAZI}- SI PARTE PER " 

; : INPUTSW 




: rem 

95 

102 

IFSW< 20RSW> 6THEN92 

: rem 

1 47 

104 

PRINT"{SU}"TAB(18)H$(SW) 

: rem 

239 

1 06 

GETA$:IFA$ = ""THENl06 

: rem 

81 

1 08 

PRINT"{CLR}{GIU'}{YEL}{ 4 SPAZI}! 2345 

6 7 8 9 

0 


{ 2 SPAZI}} 3 GIU 1 }{WHT}ORA SI VA PER" 

: rem 

237 

1 1 0 

PRINT"{ 2 SU}{GRN}{ 3 SPAZI}[<A>}C[<R>]C[<R>]C[<R>]C 


[<R>]C[<R>]C[<R>]C[<R>]C[<R>]C[<R>]C[<S>]{YEL}" 




: rem 

1 27 

1 1 2 

FORI=0TO8 

: rem 

1 2 

1 1 4 

PRINTI"{GRN}- - -{SPAZI}-{SPAZI}-{SPAZI}- 

{SPAZI}- 



{spazi}-{spaziT-Tspazi}-Tspazi}-" 

: rem 

77 

116 

PRINT"{ 3 SPAZI}[<Q>]C+C+C+C+C+C+C+C+C+C[<W>]{YEL} 

n 



: rem 

1 82 

118 

NEXTI-.PRINT" {SU} {GRN} { 3 SPAZI }[< Z> ] C [<E> ] C [ <E> ] C 



[<E>]C [<E>]C[<E>}C [<E>}C [<E>}C [<E>]C [<E>}C [<X>] " 




: rem 

29 

1 20 

REM (ESTRAZIONE NUMERO CASUALE) 

: rem 

1 60 

1 22 

DW=0:IFSW=7THEN232 

: rem 

74 

1 24 

GOSUB278 

: rem 

1 84 

1 26 

X=INT(RND(1)*90)+1 

: rem 

1 91 

1 28 

IFX=NC(X)THENl26 

: rem 

1 93 

1 30 

FORI=0TO80STEPl0 

: rem 

21 7 

132 

IFX<1+11THENM=3234+(80*1/10):G0T0136 

: rem 

8 

1 34 

NEXTI 

: rem 

32 

1 36 

1 = 1 + 1 :M=M+2: IFXOITHENl 36 

: rem 

224 

1 38 

1 = 80 :NEXTI 

: rem 

76 

140 

NC(X)=X:GOSUB270:POKEM,81 

: rem 

2 

1 42 

PRINT"{HOME}{ 6 GIU'}{WHT}"TAB(25)H$(SW) 

: rem 

220 

144 

PRINT"{ 5 GIU'}{YEL}"TAB(29)"U{ 4 C}l{GIU'}{ 6 SIN}- 


{ 4 SPAZIJ-^GIU'}{ 6 SIN}J{ 4 C}K{SU}{ 5 

SIN}{WHT} 

"X 



: rem 

1 82 

1 46 

REM (TEMPORIZZATORE) 

: rem 

31 

1 48 

FORTE=TC* 2 50T06000:NEXT 

: rem 

1 48 

1 50 

REM (CONTROLLO SCHEDE) 

: rem 

51 

1 52 

FORI=0TO23 

: rem 

61 

1 54 

IFV$(NR((16*1)+1))="SV"THENl 58 

: rem 

99 

1 56 

GOTO200 

: rem 

1 03 

1 58 

IFSW=6THENl 86 

: rem 

24 

1 60 

FORO=0TO2 

: rem 

1 5 

1 62 

C = 0 

: rem 

73 

1 64 

T=(16*1)+(5*0)+1 

: rem 

221 

1 66 

FORD=ITO5 

: rem 

1 4 

1 68 

T=T+1 

: rem 

224 

170 

IFNR(T) ONC (NR (T) ) THENl 74 

: rem 

21 6 

172 

C=C+1 

: rem 

1 85 

174 

NEXTD 

: rem 

31 

1 76 

IFC <>SWTHE NNEXTO: GOTO 2 0 0 

: rem 

86 

1 78 

0=2 

: rem 

94 

1 80 

NEXTO 

: rem 

39 


17 



1 82 

1 86 

1 88 

1 90 

1 92 

1 94 

1 96 

1 98 

200 

202 

204 

206 

208 

21 0 

21 2 

214 

216 

21 8 

220 

222 

224 

226 

228 

230 

232 

234 

236 

238 

240 

242 

244 

246 

248 

250 

252 

254 

256 

258 

260 

262 

264 


GOTO208 


: rem 

11 0 

C = 0 


: rem 

79 

FORO=1TO15 


: rem 

78 

T=(16*1)+0 


: rem 

208 

IFNR(T) ONC (NR (T) ) THEN1 96 


: rem 

224 

C=C+1 


: rem 

1 89 

NEXTO 


: rem 

46 

IFC=15THEN206 


: rem 

222 

NEXTI 


: rem 

26 

IFDW=1THENSW=SW+1 


: rem 

72 

GOTO!20 


: rem 

98 

REM (RICERCA NOME VINCITORE) 


: rem 

1 68 

W2 = 0 


: rem 

1 44 

FORW=1TOG 


: rem 

41 

FORW1=1T03 


: rem 

72 

W2=W2+1 


: rem 

66 

IFNR ( (1 6*1) +1 ) OCA (W2 ) THEN2 2 8 


: rem 

67 

PRINTS$" CARTELLA"NR((16*1)+1)"DI "N$(W)" "H$(SW) 




: rem 

57 

NV$ (SW) =NV$ (SW) +N$ (W) +" " 


: rem 

1 1 

W=G:W1=3 


: rem 

1 63 

GETA$:GOSUB27 0 :1FA$<>"C"THEN224 


: rem 

38 

GOSUB286 


: rem 

1 86 

NEXTW1,W:DW=Ì 


: rem 

41 

GOTO200 


: rem 

96 

REM (CALCOLO VINCITE) 


: rem 

219 

GOSUB256 


: rem 

1 82 

PRINT"{HOME}{ 9 GIU’}{ 3 SPAZl}****{ 

4 SPAZI 

JVINCITE 

{ 4 SPAZI}FINALI{ 4 SPAZI}****{GIU'}" 


: rem 

62 

F0RI=2T06 


: rem 

21 

P = INT(PT/10*(1/2)) 


: rem 

1 84 

IFNV$(I)=""THENDP=DP+P:P=0:G0T0246 


: rem 

31 

IFI=6THENP=P+DP 


: rem 

1 76 

PRINT"{GIU'} - "H$ ( I)" £"P;NV$(I) 


: rem 

62 

NEXTI 


: rem 

38 

PRINT"{ 2 GIU'} C TOTALE{ 3 SPAZl}£"PT 

: rem 

22 

GOSUB284 


: rem 

1 83 

RUN 


: rem 

1 44 

REM (INTESTAZIONE) 

PRINT"{CLR){ 2 GIU *}{YEL}{ 3 SPAZI) [< 

3 +>] 

: rem 

1 1 1 

{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}[<+>) [<+>]{ 2 SPAZI} 


[< 3 +>]{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}[<+>]{ 4 

SPAZI} 

[< 3 +>]" 


: rem 

1 1 1 

PRINT"{ 4 SPAZI)[<+>]{ 3 SPAZI)[<+>] 

[<+>]{ 

2 SPAZI} 

[< 3 +>] { 2 SPAZI}[< + >] [< + >]{ 2 SPAZI} [< + >] 

[< + >] 


{ 2 SPAZI}[<+>]{ 4 SPAZI}[<+>] [<+>]" 


: rem 

21 5 

PRINT"{ 4 SPAZI}{<+>]{ 3 SPAZI}[<+>] 

[<+>] { 

2 SPAZI} 

[<+>] [<+>]{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}[<+>] 

[< + >] 


{ 2 SPAZI}[<+>]{ 4 SPAZI}[< 3 +>]" 


: rem 

1 27 

PRINT"{ 4 SPAZI}[<+>]{ 3 SPAZI}[<+>] 

[<+>] { 

2 SPAZI} 


[< + >] [< + >]{ 2 SPAZI} [< + >] [< + >]{ 2 SPAZI} [ < + > ] [< + >] 

18 


{ 2 SPAZI} [< + >]{ 4 SPAZI} [< + >] [< + >]" : rem 53 

266 PRINT"{ 4 SPAZI}[<+>]{ 3 SPAZI}[< 3 +>]{ 2 SPAZI} 

[<+>] [<+>]{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}[< 3 +>] 



{ 2 SPAZI}[< 3 +>]{ 2 SPAZI}[<+>] [<+>]{WHT}" 





: rem 

1 22 

268 

RETURN 


: rem 

128 

270 

REM (SUONO) 


: rem 

98 

272 

XI=INT(RND(1)*500)+200 


: rem 

1 27 

274 

SOUND1,X1,Y 


: rem 

145 

276 

FORU=1TOY*16 + 3 0 :NEXTU 


: rem 

50 

278 

REM (ATTESA) 


: rem 

1 52 

280 

GETA$:IFA$ < >"S"THEN2 8 8 


: rem 

239 

282 

PRINTS$" ATTENDO..!! PER CONTINUARE 

PREMI 

(C) " 





: rem 

129 

284 

GETA$:IFA$<>"C"THEN284 


: rem 

223 

286 

PRINTS$"{ 38 SPAZI}" 


: rem 

232 

288 

RETURN 


: rem 

1 30 

1000 REM (NUMERI CARTELLE) 


: rem 

1 8 

1 00 2 DATA25,4,21 ,44,63,86,9,27,30,54,75 

,12,33, 

59,69,90 




: rem 

1 51 


1004 DATA26,13,34,42,67,80,19,39,52,73,87,6,22,45,55,79 

: rem 212 

1 006 DATA27,1 4,23,41 ,62,81 ,1 8,37,56,78,82,2,24,48,66,88 

: rem 213 

1008 DATA28,7,25,40,68,85,11,36,51,70,89,15,29,46,53,74 

: rem 213 

1010 DATA29,1 ,26,43,61 ,84,3,16,31 ,58,71 ,5,28,35,64,76 

: rem 95 

1012 DATA30,10,32,50,72,83,8,20,47,60,77,17,38,49,57,65 

: rem 19 6 

1014 DATA31,10,31,43,66,83,1,22,32,54,71,15,29,47,59,74 

: rem 187 

1016 DATA32,!4,34,52,60,80,5,23,46,73,85,17,37,42,67,88 

: rem 204 

1018 DATA33,6,24,44,61 ,82,1 1 ,38,53,72,90,9,28,49,68,79 

: rem 168 

1 020 DATA34,1 6,21 ,33,51 ,75,3,25,45,64,81 ,7,1 9,39,55,78 

: rem 150 

1022 DATA35,2,20,40,63,70,12,35,56,69,84,4,26,48,58,76 

: rem 150 

1024 DATA36,!3,30,50,62,86,18,36,57,77,87,8,27,41,65,89 

:rem. 221 

1026 DATA61,2,26,40,64,81,9,29,46,72,87,10,39,50,68,88 

: rem 16 5 

1028 DATA62,12,30,52,73,82,8,25,42,53,90,18,36,59,67,77 

: rem 211 

1 0 30 DATA63,5,21 ,41 ,66,80,17,33,54,74,85,19,24,45,69,89 

: rem 212 

1032 DATA64,15,32,55,71,83,3,23,37,60,75,16,38,49,58,65 

:rem 209 


19 


1034 DATA65,11,31,44,61,86,1,20,34,57,70,7,27,47,63,78 

: rem 148 

1036 DATA66,13,22,43,62,84,4,14,35,51,76,6,28,48,56,79 

: rem 162 

1 0 38 DATA67,1 3,33,42,63,80,5,29,47,64,72,1 4,37,55,76,89 

:rem 221 

1040 DATA68,12,35,43,61,83,1,17,38,51,75,4,25,46,69,87 

: rem 158 

1 042 DATA69,7,22,39,53,79,1 5,2 4,4 0,56,67,1 9,28,41 , 59,85 

:rem 223 

1 044 DATA70,11,32,58,71,81,6,20,48,60,88,18,30,54,65,77 

:rem 203 

1046 DATA71,2,21,45,62,73,3,26,49,66,82,16,34,52,78,84 

: rem 159 

1048 DATA72,10,31,50,70,86,8,23,44,68,90,9,27,36,57,75 

: rem 16 2 



CI6--pius/4 


Supcrmind 



Questo gioco per 06 e per PLUS/ 
4 è la riproduzione di un celeberri¬ 
mo gioco di logica che ha avuto il 
suo boom qualche anno fa: il ma¬ 
ster mind. 

In esso bisogna scoprire con un 
numero determinato di prove (in 
questa versione sono disponibili 7 
prove) una combinazione di 4 co¬ 
lori, che in questo gioco può esse¬ 
re scelta dal computer o da una 
persona. 

Per mettere le pedine colorate nel 


tabellone si usano i tasti da 3 a 8, 
e dopo aver digitato quattro colori 
si riceve il responso della prova 
con dei simboli che il computer 
mette a lato del rettangolo in cui si 
sono poste le pedine colorate. 

Per ogni pedina di colore giusto 
nella posizione giusta il computer 
visualizza un tondino pieno, men¬ 
tre per ogni pedina di colore giusto 
in una posizione sbagliata visualiz¬ 
za un tondino con un foro nel cen¬ 
tro. 


20 

COLOR4,2,5:COLORO,2,5:VOL8 

: rem 

223 

30 

PRINTCHR$(8)CHR$(142):PRINT"{BLK}{CLR}" 

: rem 

145 

40 

FORX=3073TO3110 :POKEX,64 :NEXT 

: rem 

229 

50 

FORX=3112TO3992STEP40:POKEX,93:NEXT 

: rem 

1 48 

60 

FORX=3151TO4031STEP40:POKEX,93 :NEXT 

: rem 

137 

70 

FORX=40 33T04070:POKEX,64 :NEXT 

: rem 

235 

80 

POKE3072,85 

: rem 

252 


20 












90 POKE3111 , 73 :POKE40 32,74:POKE40 71 ,75 :rem 138 

100 PRINT"[<7>]{ 3 GIU'}{ 4 DES}{RVS}{FLASH ON} 

{ 3 SPAZI}S{ 2 SPAZl}U{ 2 SPAZX}P{ 2 SPAZl}E 
{ 2 SPAZI}R{ 3 SPAZI}M{ 2 SPAZl}l{ 2 SPAZl}N 



{ 2 SPAZI}D{ 3 SPAZI}" 

: rem 

238 

1 1 0 

DIMA%(4):DIMB%(4):DIMD%(4) 

: rem 

89 

1 20 

D$ = "{ 10 SPAZI}ISTRUZIONI (S/N)?{ 9 SPAZI}" 

: rem 

252 

1 30 

PRINT"{ 2 GIU'}" 

: rem 

1 35 

140 

PRINT"{SU}{ 2 DES}[<7>]";D$:FORX=1T079:NEXT 

: rem 

225 

1 50 

D$=D$+LEFT$(D$,l):D$=MID$(D$,2,36) 

: rem 

1 88 

1 60 

GETA$: IFA$<>"N"ANDA$<>"S"THEN140 

: rem 

35 

1 70 

GOSUB600 

: rem 

1 74 

1 80 

PRINT"{HOME}{GIU'}"SPC(18)"C) COMPUTER"CHR$(13)SPC(18 


)"{GIU'}A) AVVERSARIO" 

: rem 

1 00 

1 90 

GETAS: IFA$<>"C"ANDA$<>"A"THENl90 

: rem 

1 4 

200 

PRINT"{HOME}{GIU'}"SPC(18)"{ 11 SPAZI}"CHR$(13)SPC(18 


)"{GIU'}{ 20 SPAZI}" 

: rem 

22 

21 0 

IFA$="C"THENGOSUB790:GOTO280 

: rem 

1 67 

220 

R= 1 

: rem 

84 

230 

FORX=lT04 

: rem 

25 

240 

GETA$:IFA$=CHR$(20)ANDX>1THENX=X-1 :R=R-2 :POKE3115+R,l 


60 

: rem 

251 

250 

IFVAL(A$)<30RVAL(A$)>8THEN240 

: rem 

163 

260 

A%(X)=VAL(A$):POKE3115+R,81 

: rem 

1 94 

270 

R=R+2:NEXT 

: rem 

80 

280 

GOSUB770 

: rem 

1 84 

290 

PRINT"{HOME}"SPC(32)"{ 5 GIU'}{RED}3=Q{ 3 GIU'} 



{ 3 SIN} {CYN}4 = Q{ 3 GIU'H 3 SIN} {PUR)5=Q{ 

3 GIU 1 

} 


{ 3 SIN} {GRN}6=Q{ 3 GIU'H 3 SIN} {BLU } 7=Q { 

3 GIU* 

} 


{ 3 SIN}{YEL}8=Q{BLU}" 

: rem 

204 

300 

Y=840:R=1 

: rem 

1 91 

320 

SOUND2,19,19 

: rem 

1 24 

330 

FORX=lTOl 00 0 :NEXT 

: rem 

32 

350 

FORX=lT04:D%(X)=A%(X):NEXT 

: rem 

45 

360 

FORX=1T04 

: rem 

29 

370 

GETA$:IFA$=CHR$(20)ANDX>1THENX=X-1 :R=R-2 :POKE3115+R+Y 


,32 

: rem 

81 

380 

IFVAL(A$)< 30RVAL( A$)>8THEN370 

: rem 

1 71 


390 B%(X)=VAL(A$):POKE3115+R+Y,81:POKE2091+R+Y,B%(X)+63 

:rem 81 

400 R=R+2:NEXT : rem 75 

410 FORX=lT04:IFB%(X)=D%(X)THENG$=G$+"Q":D%(X)=255:B%(X)= 
254 :rem 10 

420 NEXT : rem 213 

4 30 IFD%(1)=B%(2)THENG$=G$+"W":D%(1)=255 :B%{2)=254 

: rem 186 

440 IFD %(1)=B%(3)THENG$=G$+"W":D%(1 )=255 :B%(3)=254 

: rem 189 

4 50 IFD%(1)=B%(4)THENG$=G$+"W":D%(1 )=255:B%(4)=254 

: rem 192 


21 


4 60 IFD%(2)=B%(1)THENG$=G$+"W":D%(2)=255 :B%( 1 )=254 


470 

IFD%(2)=B%{3)THENG$=G$+"W" 

: rem 

:D%(2)=255 :B%(3)=254 

1 89 

480 

IFD%(2)=B%(4)THENG$=G$+"W" 

: rem 

:D% (2)=255:B%(4)=254 

1 94 



: rem 

197 

490 

IFD%(3)=B%(1)THENG$=G$+"W" 

:D% (3)=255:B%(1)=254 




: rem 

1 94 

500 

IFD% ( 3)=B%(2)THENG$=G$+"W" 

:D% ( 3)=255:B%(2)=254 




! rem 

1 88 

510 

IFD%(3)=B%(4)THENG$=G$+"W" 

:D% (3)=255:B%(4)=254 




: rem 

1 93 

520 

IFD%(4)=B%(1)THENG$=G$+"W" 

:D% ( 4)=255 :B%(1)=254 




: rem 

1 90 

530 

IFD%(4)=B%(2)THENG$=G$+"W" 

:D%(4)=255:B%(2)=254 



I 

: rem 

193 

540 

IFD%(4)=B%(3)THENG$=G$+"W" 

:D% (4)=255:B%(3)=254 




: rem 

1 96 

550 

PRINT"{HOME}":FORX=lTO((Y- 

40)/40) :PRINT"{GIU 1 }"; : 

NEXT 


:PRINTSPC(18)"{GRN}"G$ 

: rem 

43 

560 

IFG$ = "{ 4 Q}"THEND$ = "SI":G0T0820 : rem 

27 

570 

IFY=120THEND$="NO":GOTO820 

: rem 

22 

580 

Y=Y-120 :G$ = "":R=1 

: rem 

1 08 

590 

GOTO320 

: rem 

1 08 

600 

IFA$ = "N "THEN 7 0 0 

: rem 

31 


610 PRINT"{CLR}{ 2 GIU'}[<7>}{RVS}{ 15 SPAZI}ISTRUZIONI 

{ 15 SPAZI}" : rem 233 

620 PRINT"{ 2 GIU’} IN QUESTO GIOCO SI PUÒ' SFIDARE IL Cl 
6{ 10 SPAZI}0 UN AVVERSARIO UMANO." :rem 10 

630 PRINT"{GIU'}{ 2 SPAZI}SI HANNO {GRN}7[<7>] TENTATIVI 
A DISPOSIZIONE." : rem 65 

640 PRINT"{GIU'}PER LE PEDINE USARE I TASTI {RED}3 {CYN}4 
{PUR}5 {GRN}6 {BLU}7 {YEL}8[<7>]" :rem 4 

650 PRINT"{GIU'} PER CORREGGERE GLI ERRORI PREMERE {RVS}D 
EL" : rem 239 

660 PRINT"{GIU'}{GRN} Q[<7>] { 2 SPAZlJlNDICA GIUSTO COLOR 
E-POSTO GIUSTO" :rem 235 

670 PRINT"{GIU'}{GRN} W[<7>}{ 2 SPAZlJlNDICA GIUSTO COLOR 


E-POSTO SBAGLIATO" :rem 173 

680 PRINT"{RVS}{ 3 GIU'}{ 7 SPAZl}PREMI RETURN{ 2 SPAZI} 



PER INIZIARE{ 7 SPAZI}" 


: rem 

83 

690 

GETA$ : IFA$OCHR$ (13) THEN690 

: rem 

1 6 

700 

PRINT"{CLR }"; 


: rem 

54 

710 

FORX=lT08 


: rem 

32 

720 

PRINT"[<7>]{ 3 SPAZI}0[< 

7 Y>]P{ 31 

SPAZI}[<H>] 



{ 7 SPAZI}[<N>]" 


: rem 

2 

730 

PRINT"{ 3 SPAZI}[<H>]{ 7 

SPAZI}[<N> ] 

" :rem 

201 

740 

NEXT 


: rem 

218 

750 

PRINT"{ 3 SPAZI}[< 9 Y>]" 

• 

f 

: rem 

23 


22 


760 PRINT" {HOME} { 3 GIU'}S{ 2 GIU ' } {SIN}U { 2 GIU'HSINjP 
{ 2 GIU'} {SIN}E{ 2 GIU 1 }{SIN}R{ 2 GIU'}{SIN}M 
{ 2 GIU'}{SIN}l{ 2 GIU'}{SIN}N{ 2 GIU'}{SIN}D" 

:rem 99 

770 FORX=lT0 9:FORY=0TO2:POKE3074+X+Y*40,1 60 :POKE2069+X+Y* 



40,14 :NEXTY,X 

: rem 

40 

780 

RETURN 

: rem 

1 27 

790 

FORX=1T04 

: rem 

36 

800 

FORY=1T03:E=RND(1)*5+3:NEXTY 

: rem 

205 

810 

A%(X)=E:NEXT:RETURN 

: rem 

1 89 

820 

FORX=lT04:POKE3116+C,81:POKE2092+C,A%(X)+63:C=C+2 

: NEX 


T 

: rem 

1 55 

830 

PRINT"{HOME}"; :IFD$ = "NO"THENPRINTSPC(16)"NON HAI 

INDO 


VINATO." 

: rem 

1 41 

840 

IFD$="SI"THENPRINTSPC(16)"BRAVO, HAI 

INDOVINATO !" 




: rem 

226 

850 

PRINT"{HOME}{ 2 GIU'}"SPC(16)"GIOCHI 

ANCORA (S/N) 

?" 

• 



: rem 

76 

860 

GETA$ : IFA$O"N"ANDA$O"S"THEN860 

: rem 

51 

870 

IFA$ = "N"THENSCNCLR:END 

: rem 

1 03 

880 

RUN 

: rem 

1 49 



: rem 

0 


Semaforo 



— 


È un gioco per due persone scritto 
appositamente per controllare ed al¬ 
lenare i riflessi. 

All’inizio viene chiesto ai siocatori se 
desiderano leggere le istruzioni espli¬ 
cative comprese nel programma. Do¬ 
po le istruzioni inizia il gioco vero e 
proprio e un semaforo viene visualiz¬ 
zato al centro dello schermo. Le luci 
di questo semaforo cominciano ad il¬ 
luminarsi ad una ad una dell'alto ver¬ 
so il basso, come in un conto alla ro¬ 
vescia. Quando l’ultima luce si accen¬ 
de, può apparire in tre diversi colori. 
I due giocatori, per partecipare al gio¬ 
co, devono usare due tasti: il giocato¬ 
re di sinistra il tasto "A”, quello di 


destra il tasto I vari colori che la 
lampada finale del semaforo può as¬ 
sumere sono tre: azzurro, bianco o 
viola. Nel caso la lampada diventi 
bianca, il primo dei due giocatori che 
preme il suo tasto vince la manche e 
si aggiudica un punto. Se invece la 
lampada diventa azzurra, solo il gio¬ 
catore di sinistra ha diritto a premere 
il tasto, guadagnando un punto. Nel 
caso che la lampada divenga viola, 
tocca al giocatore di destra premere 
il suo tasto. Se nella troppa foga un 
giocatore preme il proprio bottone 
quando non è il suo turno, perde tre 
punti. Il primo che raggiunge i 7 0 pun¬ 
ti vince la partita. 


23 











1 5 

POKE53281,15:POKE53280,2:F=RND(0) 



: rem 

21 

20 

Al =55475 :A2 = Al +40 :A3=A2 + 40:A4 = A3 + 40 

:A5=A4+40 

: A6=A5+40 : 


RS=0:LS=0:DE=90 



: rem 

1 93 

30 

PRINT"{CLR}{GIU'}{BLK}{ 9 DES}ISTRUZIONI? 

(S = 

SI/N=NO)" 





: rem 

1 60 

35 

GETG$:IFG$="S"THEN350 



: rem 

1 30 

40 

IFG$<>"N"THEN35 



: rem 

1 

45 

PRINTCHR$(142)"{CLR}{GIU'}{BLU}{ 12 

DES} S 

E 

M A F 

O R 


0{BLK}" 



: rem 

46 

50 

PRINT"{GIU'}"TAB(19)"[<0>]" 



: rem 

21 4 

55 

PRINTTAB(18)"[<L>]Q[<J>]" 



: rem 

8 

57 

PRINTTAB(18)"[<L>]Q[<J>}" 



: rem 

1 0 

60 

PRINTTAB(18)"[<L>]Q[<J>]" 



: rem 

4 

62 

PRINTTAB(18)"[<L>]Q[<J>]" 



: rem 

6 

65 

PRINTTAB(18)"[<L>]Q[<J>] " 



: rem 

9 

67 

PRINTTAB(18)"[<L>]Q[<J>]" 



: rem 

1 1 

70 

PRINTTAB(19)"{RVS} {OFF}" 



: rem 

1 10 

75 

PRINTTAB(19)"[<+>]" 



: rem 

1 1 7 

80 

PRINTTAB(19)"[<+>] " 



: rem 

11 3 

85 

PRINTTAB(19)"[<+>]" 



: rem 

118 

90 

PRINTTAB(19)"[< + >] " 



: rem 

1 1 4 

95 

PRINTTAB(1 8) "[< 3 U>]{GIU'}" 



: rem 

9 

1 00 

POKEAl,2 



: rem 

1 44 

1 05 

FORF=1TO 2 0 0 0 :NEXT 



: rem 

1 5 

1 1 0 

POKEAl ,0 :POKEA2,2 :GOSUB500 



: rem 

24 

1 1 7 

POKEA2,0 :POKEA3,7 :GOSUB500 



: rem 

38 

1 1 8 

POKEA3,0 :POKEA4,7 :GOSUB500 



: rem 

41 

1 1 9 

POKEA4,0 :POKEA5,6 :GOSUB50 0 : POREI 98 

,0 


: rem 

146 

1 20 

D=INT(RND(1)*4)+1 



: rem 

1 1 2 

1 25 

IFD=1THENE=1 



: rem 

1 87 

1 30 

IFD=2THENE=1 



: rem 

1 84 

1 35 

IFD=3THENE=4 



: rem 

1 93 

1 37 

IFD=4THENE=3 



: rem 

1 95 

1 40 

POKEA5,0 :POKEA6,E :POKES,235 



: rem 

1 05 

145 

ONDGOTOl50,150,165,165 



: rem 

1 56 

1 50 

GETG$:IFG$ = "A"ORG$ = " = "THENl 60 



: rem 

1 03 

1 55 

GOTO!50 



: rem 

1 06 

1 60 

POKES, 0.-GOTO260 



: rem 

1 28 

1 65 

GETG$:IFG$ = "A"ORG$ = " = "THENl 75 



: rem 

1 1 5 

1 70 

GOTO!65 



: rem 

1 09 

1 75 

IFG$="A"ANDE=3THEN260 



: rem 

1 68 

1 80 

IFG$="="ANDE=4THEN260 



2 rem 

1 61 

1 90 

IFE=3THENGOSUB2 50 



2 rem 

36 

1 92 

IFDE>0THENDE=DE-50 



2 rem 

50 

1 95 

PRINT"{RVS}SBAGLIATO{OFF}" 



2 rem 

1 70 

200 

IFE=3THENGOSUB250 



2 rem 

28 

205 

PRINT"{GIU'}NON E' IL" 



2 rem 

1 01 

21 0 

IFE=3THENGOSUB2 50 



2 rem 

29 

21 5 

PRINT"TUO TURNO." 



2 rem 

39 

220 

IFE=3THENRS=RS-3:GOTO230 



2 rem 

246 

225 

LS=LS-3 



2 rem 

1 1 6 


24 


230 

REM 

: rem 

1 21 

238 

FORF=1TOl 000 :NEXTF 

: rem 

91 

240 

POREI 98,0:GOTO45 

: rem 

1 59 

250 

PRINTTAB(30); 

: rem 

234 

255 

RETURN 

: rem 

1 24 

260 

IFG$ = " = "THEN2 90 

: rem 

26 

265 

LS=LS+1:DE=DE-50:IFLS=10THEN400 

: rem 

88 

270 

PRINT"BRAVO !!!!" 

: rem 

1 04 

275 

PRINT"{GIU*}PUNTI{DES}"LS 

: rem 

204 

277 

REM 

: rem 

1 32 

282 

FORF=1T02000 :NEXTF 

: rem 

91 

285 

POKEl98,0:GOTO45 

: rem 

1 68 

290 

RS = RS + 1 :DE=DE-50 :IFRS = 10THEN400 

: rem 

1 04 

295 

PRINTTAB(30);"BRAVO ! ! ! !" 

: rem 

53 

300 

PRINTTAB(30);"PUNTI{DES}"RS 

: rem 

1 24 

301 

GOTO2 7 7 

: rem 

1 09 

350 

PRINTCHR?(14)"{CLR}{BLU}{ 12 DES}S 

E M A F O R O" 




: rem 

1 38 

355 

PRINT"{BLK}{GIU'}E' UN GIOCO PER PROVARE I RIFLESSI." 



: rem 

237 

357 

PRINT"IL GIOCATORE DI SINISTRA USA 

IL TASTO":rem 

37 

358 

PRINT"'A', QUELLO DI DESTRA USA IL 

TASTO '='." 




: rem 

1 44 

360 

PRINT"SE L'ULTIMA LUCE AD ACCENDERSI E' BIANCA"; 




: rem 

1 33 

362 

PRINT"IL PRIMO GIOCATORE CHE PREME 

IL SUO TA- STO 

GUA 


DAGNERA' UN PUNTO." 

: rem 

1 5 

364 

PRINT"SE L'ULTIMA LUCE E' AZZURRA 

IL GIOCATORE"; 




: rem 

246 

365 

PRINT"DI SINISTRA DEVE PREMERE IL 

SUO TASTO ;" 




: rem 

239 

366 

PRINT"SE E' VIOLA TOCCA INVECE AL 

GIOCATORE 



{ 3 SPAZI}DI DESTRA." 

: rem 

1 87 

367 

PRINT"{GIU'}**{ 2 SPAZI{PREMERE UN 

TASTO PER CONTINUA 


RE.{ 2 SPAZI}**"; 

: rem 

48 

368 

GETG$: IFG$ = ""THEN368 

: rem 

1 1 3 

371 

PRINT"{CLR}{BLU}{ 12 DES}S E M A F 

O R O{BLK}" 




: rem 

1 02 


373 PRINT"{GIU'}SE UN GIOCATORE PREME IL SUO TASTO QUAN-" 

; :r em 4 

374 PRINT"DO E' LA VOLTA DELL'AVVERSARIO, PERDE 3 PUNTI." 

:rem 88 

375 PRINT"IL PRIMO CONCORRENTE CHE RAGGIUNGE I 10 PUNTI V 

INCE." :rem 148 

378 PRINT"{GIU'}**{ 2 SPAZI}PREMERE UN TASTO PER CONTINUA 

RE.{ 2 SPAZI}**"; : rem 50 

379 GETT$:IFT$ = ""THEN379 :rem 143 

380 PRINTCHR$(142)"{CLR}": GOTO4 5 :rem 196 

400 IFRS=10THENGOSUB250 :rem 172 

405 PRINT"{RVS}HAI VINTO{OFF}" :rem 112 

410 IFRS = 10THENGOSUB250 treni 173 


25 




415 PRINT"{GIU'{BRAVISSIMO" 

420 REM 

430 PRINT"{RVS}{ 11 DES{GIOCHI ANCORA(S/N){OFF} 
435 GETG$:IFG$="S"THENl5 

440 IFG$="N"THENPRINTCHR$(142)"{CLR}": END 
445 G0T0435 

500 POKES,231 :FORF=lTO300:NEXT:POKES,0 
510 FORF=lTODE:NEXT:RETURN 


: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 
: rem 


1 23 
1 22 
21 1 
1 32 
238 

I 1 4 

II 7 
240 


New York 


Questo originale e divertente gio¬ 
co vi permette di osservare New 
York da un elicottero e di regolarne 
il traffico. All'inizio vedrete tutte le 
strade deserte, ma poco per volta 
esse si popoleranno di automobili. 
Il vostro compito sarà quello di di¬ 
rigere efficacemente il caotico traf¬ 
fico della metropoli. Quando 
un'automobile, rappresentata da 
un rettangolino nero, raggiunge 
uno dei semafori, raffigurati invece 
da lettere e numeri, si ferma se il 
semaforo è rosso, oppure attraver¬ 
sa l'incrocio se il semaforo è verde. 
Per modificare il colore del semafo¬ 
ro dovete premere il tasto corri¬ 



spondente al simbolo che lo rap¬ 
presenta. 

AH'inzio del gioco avete ! 00 punti. 
Guadagnate IO punti ogni volta 
che un veicolo attraversa un incro¬ 
cio e 25 punti se un 'automobile at¬ 
traversa tutta la città. Se due vettu¬ 
re si scontrano ad un incrocio per¬ 
dete 100 punti e la strada rimane 
temporaneamente bloccata. Il vo¬ 
stro punteggio diminuisce anche in 
proporzione al numero di auto fer¬ 
me in coda ai semafori. Se restate 
con zero punti la partita ha termi¬ 
ne, altrimenti il gioco dura 5 minuti. 
Più punti otterrete, più brillante sa¬ 
rà la vostra carriera di vigile! 


10 REM NEW YORK 
15 POKE53 281 ,7 :POKE53280,1 1 
20 A=RND(-TI):TI$="000000":TB=TI:PU=100 
30 PRINT"{CLR}[<7>][< 6 +>] - [< 22 +>] 


: rem 
: rem 


: rem 

[< 6 +>]"; 


1 1 6 
244 
21 0 


40 PRINT"[< 6 +>]A- [< 22 +>]B- [< 6 +>]"; : rem 

50 PRINT"{ 7 SPAZlT^ C{ 5 SPAZI}[<R>] D{ 5 SPAZI}[<R>] 
{ 6 SPAZI}- F{ 5 SPAZI}"; -rem 

60 PRINT"{ 7 C}+{ 7 C}+{ 7 C}+{ 8 C}+{ 7 C}»; :rem 


98 
1 85 
E 

161 

74 


26 













70 PRINT"{ 5 SPAZI}G _-{ 5 SPAZI}H -{ 5 SPAZl}l 

{ 6 SPAZI}J -_{ 7 SPAZI}"; :rem 

80 PRINT"[< 6 +>] -K[< 5 +>] -L[< 5 +>] -M[< 6 +>] -N 


[< 6 +>]" 

• 

r 





: rem 

66 

A$ = " [< 6 

+>] 

- [< 

5 +>] - [< 5 

+ >] 

- [< 6 +>] ~ 


[< 6 +>]" 

:PRINTA$ 

A$ 

A$ ; 


: rem 

28 

PRINT"[< 

6 

+>]0^ 

[< 

5 +>1?-^ [< 

5 

+ >]Q- [< 6 +>]R- 1 


l< 6 +>] 

ii. 

r 





: rem 

1 23 

PRINT"[< 

6 

+>] - 

s{ 

5 SPAZI 

T { 

5 SPAZI}- U 


{ 6 SPAZI}- 

[< 6 

+ >] 

Il . 
f 


: rem 

21 4 

PRINT"[< 

6 

'+>] [<Q>] + { 7 C} + { 7 

C}+{ 8 C}+[<W>] 


[< 6 +>] 

H . 
r 





: rem 

243 

PRINT"[< 

6 

+>] - 

{ 5 

SPAZI}V -{ 

5 

SPAZI}W -{ 6 SPAZI} 

X - [< 6 

+>]"; 




: rem 

225 

PRINT"[< 

6 

+>] - 

Y [< 

5 +>] Z Z[< 

5 

+>] -0[< 6 +>] -1 


[< 6 +>] 

n . 
r 





: rem 

81 

PRINTA$ 

A$ 

A$ ; 




: rem 

1 41 

PRINT"[< 

6 

+>] 2- 

[< 

5 +>] 3-_ [< 

5 

+>] 4- [< 6 +>] 5^ 


[< 6 +>] 

ii • 

/ 





: rem 

1 3 


170 PRINT" { 7 SPAZ I 6 { 5 SPAZI}- 7{ 5 SPAZI}-- 8 

{ 6 SPAZ I}-^ 9 { 5 SPAZI}"; :rem 246 

180 PRINT"{ 7 C} + { 7 C}+{ 7 C}+{ 8 C}+{ 7 C}"; :rem 125 
190 PRINT" { 5 SPAZ I}+ -J 5 SPAZl}£ [<F,>]{ 5 SPAZl}@ [<E>] 
{ 6 SPAZI}* _-{ 7 SPAZI}"; 

200 PRINT" [< 6 +>] -T [< 22 +>] -_= [< 6 

210 PRINT" [< 6 +>] [< 22 +>] [< 6 

300 PRINT"[< 6 +>] - [< 22 +>] - [< 6 


+>]"; 

+> ] " ; 

+>]{HOME}" 


400 AW=40:SC%=1023:CL=55295 

500 DIMX%(AW),Y%(AW),R%(AW7,L%(41),A%(3),F%(9) 
510 FORI=0TO41:READL%(I):NEXT 

52 0 DATA47,72,90,98,1 06,1 1 5,1 66,1 74,1 82,1 91 ,20 
34,367,375,383,392 

530 DATA410,418,426,494,502,511,529,537,545,55 
03,712 

535 DATA730,738,746,755 

540 DATA806,814,822,831,849,874 


560 POKEL%(I)+CL,2 :NEXT 

590 A%(0)=1:A%(1)=-l:A%(2)=40:A%(3)=-40 
600 DEFFNR(X)=INT(RND( 1 )*X) 

1 000 FORI = OTOAW:R%=R%(I);IFR%=0THEN1 099 
1010 X%=X%(I):Y%=Y%(I) 

1020 IFRlANDlTHENX%=X%+1:F%=98;00%=226:( 
OTHENl200 


1THEN1200 

1040 IFR%AND4THENY%=Y%+1:F%=97:O0%=225:O%=93:S%=-l:IFY%>2 
3THEN1200 :rem 28 


: rem 

1 79 

: rem 

255 

: rem 

101 

? 

: rem 

1 20 

: rem 

21 3 

: rem 

1 26 

: rem 

21 

217/225,2 

: rem 

202 

687,695/7 

: rem 

1 31 

: rem 

1 85 

: rem 

74 

ORI 28 


: rem 

97 

: rem 

1 02 

: rem 

102 

: rem 

85 

: rem 

71 

: rem 

1 60 

40:1FX% > 4 

: rem 

25 

-40:IFX%< 

: rem 

21 


27 


1 050 IFR%AND8THENY%=Y%-1 :F% = 225 :00% = 97 :0% = 93 :S%=1 :IFY%<OT 



HENl200 

: rem 

191 

1 060 

IFR%ANDl6THEN1100 

: rem 

248 

1 070 

IFR%AND3 2THEN1 400 

: rem 

250 

1 080 

IFR%AND64THENO%=91:R%=R%-64 :R%( I )=R% ;PU=PU+10 




: rem 

1 58 

1 090 

GOTO!300 

: rem 

1 99 

1 099 

NEXT: GOTO 20 0 0 

: rem 

71 

1 1 00 

IF(PEEK(X%(I)+ 4 0 *Y% ( I ) +S%+CL)AND!5)< >2THENR%(I) = 

(R%0 


R32)ANDNOTl6:GOTOl300 

: rem 

239 

ino 

PU=PU-1: GOTO!099 

: rem 

238 

1 200 

PU=PU+25:PN=PN+1:R%(I)=0 :P%=-1:GOTO!330 

: rem 

39 

1 300 

P%=X%+40*Y%:PS%=PEEK(P%+SC%):IFPS%=F%ORPS%= 

160THENPU 


=PU-1: GOTO!099 

: rem 

1 0 

1310 

A=PEEK(P%+S%+SC%):IFA<>32THENR%(I)=R%ORl6 

: rem 

1 56 

1 320 

IFPS%=O0%THENF%=160 

: rem 

1 08 

1 325 

V%=PEEK(X%(I)+40*Y%(I)+SC%):IFV%=160THENO%= 

oo% 




: rem 

99 

1 327 

IFV%=102THENR%(I)=0 :AO=AO+l:PU=PU-100 : GOTO!099 




: rem 

1 2 

1 330 

POKEP%+SC%,F% : POKEPI+CL,0 

: rem 

220 

1 335 

IF0%=64OR0%=93ORO%=91THENPOKEX%(I)+40*Y%(I)+CL,14 



: rem 

129 

1 340 

POKEXI(I)+40*Y%(I)+SC%,0%:X%(I)=X%:Y%(I) = Y% 

: GOTO1099 



: rem 

1 95 

1 400 

P%=X%+40*Y%:A=PEEK(P%+SC%):IFA=F%THENl099 

: rem 

1 04 

1 41 0 

IFA091 THENl 500 

: rem 

1 1 1 

1 420 

VB=0:FORJ=0TO3:A=2 T J:B=PEEK(P%+SC%+A%(J)):IFNOT(B=64 


ORB=93)THENVB=VBORA 

: rem 

192 

1 430 

NEXT 

: rem 

7 

1 440 

B = 21FNR ( 4 ) : IF(BANDVB)=0THENR%(I)=BOR64:GOTO!3 30 




: rem 

1 23 

1 450 

IFVB=15THEN1099 

: rem 

1 50 

1 460 

GOTO!440 

: rem 

205 

1 500 

AO=AO+l : R% (I) =0: IFAOl 0 2THENF% (AF) =P%:AF=AF+1 : PU 

= PU- 


1 00 . 

: rem 

21 0 

1 51 0 

F% = 102 : GOTOl330 

: rem 

60 

2000 

IFR%(TL)=0THEN2100 

: rem 

24 

201 0 

TL=TL+1 : IFTL>AWTHENTL=0 

: rem 

23 

2020 

GOTO3000 

: rem 

1 92 

2100 

A=FNR ( 4 ): R%(TL)=2tA:ONA+lGOT02110,2120,2130 

,2140 




: rem 

163 

2110 

X%(TL)=1:GOTO2200 

: rem 

21 5 

2120 

X%(TL)=40 :GOTO2200 

: rem 

1 1 

21 30 

Y%(TL)=0:GOTO2300 

: rem 

21 8 

2140 

Y%(TL)=23 :GOTO2300 

: rem 

1 6 

2200 

IFFNR(2)=1THENY%(TL)=3:GOT03000 

: rem 

1 1 0 

221 0 

Y%(TL)=19:GOT03000 

: rem 

1 7 

2300 

IFFNR ( 2)=1THENX%(TL)=8:GOT03000 

: rem 

1 1 5 

2310 

X%(TL)=33 : GOTO3000 

: rem 

1 3 


28 


3000 

GETA$:IFA$ = ""THEN30 90 



: rem 

1 78 

3010 

A=ASC(A$) :IFA>64ANDA< 91THENA=A-65 

: GOTO 3100 : rem 

248 

3020 

IFA>4 7ANDA< 5 8THENA=A-2 2 : GOTO3100 


: rem 

1 77 

3030 

IFA= 4 3THENA=3 6 : GOTO3100 



: rem 

1 35 

3040 

IFA=92THENA=37:G0T031 00 



: rem 

141 

3050 

IFA=64THENA=3 8 : GOTO3100 



: rem 

1 42 

3060 

IFA=42THENA=39:GOTO3100 



: rem 

1 40 

3070 

IFA=94THENA=40: GOTO31 00 



: rem 

1 40 

3080 

IFA=61THENA=41:GOT03100 



: rem 

1 36 

3090 

GOTO4000 



: rem 

201 

3100 

P%=L%(A):A=PEEK(P%+CL):IF(AANDl5) 

= 2THENA 

= 5 : GOTO3110 





: rem 

243 

3105 

A = 2 



: rem 

1 21 

3110 

POKEP%+CL,A 



: rem 

1 44 

31 20 

GOTO300 0 



: rem 

194 

4000 

REM 



: rem 

1 68 

4010 

PRINT"{HOME}{ 22 GIU'}[<4>] 

"SPC(18)MID$(TI$,4,1) 

" : "R 


IGHT$(TI$,2)"{HOME}" 



: rem 

1 0 

4020 

IFPU<0THENPU=0 



: rem 

1 67 

4030 

PRINT"{HOME}{RVS}[<4>]"SPC(18)RIGHT?("{ 

3 SPAZI} 

"+ST 


R$(PU),4) 



: rem 

201 

4040 

IFPU=0THEN9000 



: rem 

97 

4100 

IFFNR(25)ORF%(0)=OTHEN4200 



: rem 

225 

4110 

POKEF%(0)+SC%,91:FORI=0TO8: 

F% ( I) = 

F%(1+1) 

:NEXT:AF 

=AF- 


1 



: rem 

72 

4200 

IFTI-TB>18E3THEN9000 



: rem 

204 

5000 

GOTO!000 



: rem 

1 91 

9000 

PRINT"{HOME}{ 7 GIU'}{RVS}[<4>]{ 

6 DES}{ 

4 SPAZI}F I 


N E{ 4 SPAZI}G I O C 0{ 4 

SPAZI} 

":FORI= 

1T04000: 

NEXT 




: rem 

1 98 

9010 

IFPU>0THENPRINT"{CLR}{GIU'}{BLK} 

CE L'HAI FATTA! 

HAI 


OTTENUTO";PU;"PUNTI": GOTO9030 


: rem 

1 28 

9020 

PRINT"{CLR}{GIU 1 }{BLK} PESSIMO! NON SEI 

RIUSCITO 

A D 


IRIGERE" 



: rem 

219 

9025 

PRINT" IL TRAFFICO NEANCHE 

PER 5 

MINUTI. 

" :rem 

150 

9030 

PRINT"{ 2 GIU*}{RVS}{BLU}{ 

9 DES} 

GIOCHI 

ANCORA 

(S/N 


) ? " 



: rem 

1 88 

9040 

GETAS:IFA$="S"THENRUN 



: rem 

56 

9050 

IFA$="N"THENPRINT"{CLR}":END 


: rem 

53 

9080 

GOTO9040 



: rem 

21 5 


29 
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QUALCOSA DI SUPER, DI INEDITO, 

DI IRRESISTIBILE 












IN EDICOLA 
JACKSON SOFT 
SERIE ORO 


GRUPPO 

EDITORIALE 

JACKSON 


Corri in edicola, il vero gioco comincia solo adesso 
e se sei davvero bravo partecipa alla “sfida al campione”, 
utilizzando il tagliando che troverai sull’ultima pagina 
di copertina di ogni numero. 


I giochi esclusivi per 
Commodore 64 e Spectrum 48 K 
importati dall'Inghilterra, mai 
presentati in Italia. 

Una sfida Jackson al già visto, al 
già fatto, al... già registrato. 
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